home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PRIM / MAKESUM.ELC < prev    next >
Text File  |  1993-03-28  |  1KB  |  17 lines
  1. ;;; compiled by @win386 on Sat Mar 13 01:38:54 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/prim/makesum.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (fset 'make-command-summary #[nil "└┴!ê┬ïê├Éè qê╟ ê╚╔!êebê`╩yê`|ê╦╠═╬#½å╧╨!ê¬sebê╦╤═╬#½å╧╥!ê¬sebê╦╙═╬#½å╧╘!ê¬sebê╦╒═╬#½å╧╓!ê¬sebê╦╫═╬#½å╧╪!ê¬sebê┘┌═╬#½Ö█uê▄▌▒ê╦▐═╬#½ë`█yê`|ê¬pebê▀α ßΓOπ▒ê`Σyê`|ê╩yêm¼Ö`%┘µ═╬#¼âdbêτ%`\"ê╩yê)¬deb*æê└Φ!ç" [message "Making command summary..." ((describe-bindings)) "*Summary*" mode-name cur-mode standard-output erase-buffer insert-buffer-substring "*Help*" 1 search-forward "         " nil t replace-match "  " "-@ " "-SP" "  .. ~ " "SP .. ~" "C-?" "DEL" "C-i" "TAB" re-search-forward "^Local Bindings:" -1 " for " " Mode" "??\n" "Emacs command summary, " current-time-string 0 10 ".\n" 2 beg "^$" double-column "Making command summary...done"] 5 "\
  14. Make a summary of current key bindings in the buffer *Summary*.
  15. Previous contents of that buffer are killed first." nil])
  16. (fset 'double-column #[(start end) "└ëëëëd    Z╚        \"ë╩X¼╩ T╦Ñ    bêèyê W½¢T`è└ê`){ë B`╩yê`|ê¬_) ƒë½ô└ê╠jê @cê╩yê Aë¼md\nZb.ç" [nil end from-end nlines lines line cnt half count-lines start 1 2 41] 8 nil "r"])
  17.